home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / psychotest iii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  240 lines
  1. 10 if a=0 then a=1:load"nerv",8,1
  2. 20 sys49152
  3. 30 print"[147][208][211][217][195][200][207][212][197][211][212] [201][201][201]":poke53281,0:poke53280,3:p=0
  4. 40 poke808,225
  5. 50 print:print" [215]illkommen zum [208]sychotest [201][201][201]."
  6. 60 print:print" [215]ieder einmal stellt dein [208]sychiater"
  7. 70 print:print" [205]r. [202]oker eine [205]enge dumme [198]ragen, um"
  8. 80 print:print" eine [193]nalyse zu machen. [196]iesmal geht "
  9. 90 print:print" es um [196]eine [201]ntelligenz!"
  10. 100 print:print:print" [214]iel [211]pass!"
  11. 101 print" [215]ritten by [205]r. [202]oker"
  12. 102 print" [201]mproved by [202]ack the [210]apper"
  13. 103 print" 1992[145]"
  14. 110 get a$:ifa$="" then 110
  15. 120 print"[147]":print:print" [215]enn [196]u um 8 [213]hr ins [194]ett gehst und"
  16. 121 print" [196]einen [215]ecker so stellst, dass er [196]ich"
  17. 122 print" morgens um 9 [213]hr weckt, wie viele"
  18. 123 print" [211]tunden kannst [196]u dann":print" schlafen (0 - 9)?"
  19. 124 geta$:ifa$=""then 124
  20. 125 ifa$="1"then print" [210]ichtig!":p=p+1:goto 130
  21. 126 gosub60000
  22. 127 print" [198]alsch, [196]u schlaefst von 8 - 9 [213]hr,":print" also eine [211]tunde!"
  23. 130 print:print" [199]ibt es in [197]ngland den 17. [202]uni? ([202]/[206])"
  24. 131 geta$:ifa$=""then 131
  25. 132 if a$="j" then print" [193]bsolut korrekt!":p=p+1:goto 140
  26. 133 if a$="n" then print" [206]atuerlich, [196]u [196]ussel!":goto140
  27. 134 goto131
  28. 140 print:print" [215]ieviele [199]eburtstage hat ein":print" [205]enschenkind (0 - 9)?"
  29. 141 geta$:ifa$=""then 141
  30. 142 ifa$="1" then print" [204]ogo!":p=p+1:goto 150
  31. 143 gosub50000
  32. 144 print" [202]eder [205]ensch hat nur einen [199]eburtstag!":goto150
  33. 150 print:input" [215]ieviele [205]onate haben 28 [212]age";qw
  34. 152 if qw=12then print" [211]chlau!":p=p+1:goto 160
  35. 153 print" [193]lle [205]onate, die meisten sogar mehr!":goto160
  36. 160 print:print" [197]in [194]auer hat 16 [211]chafe. [193]lle sterben,"
  37. 161 input" ausser 9. [215]ieviele bleiben uebrig";we
  38. 162 if we=9then print" [203]laro!":p=p+1:goto 170
  39. 163 print" [215]ie gesagt, neun, [196]u [201]diot!"
  40. 170 print:print" [201]st es in der [199][213][211] erlaubt, dass ein"
  41. 171 print" [205]ann die [211]chwester seiner [215]itwe"
  42. 172 print" heiratet ([202]/[206])?"
  43. 173 geta$:ifa$=""then 173
  44. 174 if a$="n" then print" [215]ie soll er auch?":p=p+1:goto 180
  45. 175 ifa$="j"thenprint" [203]ann er doch gar nicht! [197]r ist tot!":goto180
  46. 176 goto173
  47. 180 print:print" [215]as war am 06.12.1943 denn in der [211]tadt":input"[145][194]erlin";er$
  48. 181 if er$="[206]ikolaus" then print" [213]nd ob!":p=p+1:goto 190
  49. 182 print" [206]atuerlich [206]ikolaus!"
  50. 190 print:print" [194]erlin schreibt man mit [194], und hinten"
  51. 191 print" mit [200]. [211]timmt das ([202]/[206])?"
  52. 192 geta$:ifa$="" then 192
  53. 193 if a$="j" then print" [199]ut, [197]instein!":p=p+1:goto 200
  54. 194 ifa$="n"thenprint" [206]atuerlich schreibt man hinten mit [200]!":goto200
  55. 195 goto192
  56. 200 print:print" [197]in [211]egelflugzeug stuerzt direkt auf"
  57. 201 print" die [199]renze zwischen [196]eutschland und"
  58. 202 print" [207]esterreich. [215]er bekommt den [205]otor?"
  59. 203 print:print" [193]: [196]eutschland,"
  60. 204 print" [194]: [207]esterreich,"
  61. 205 print" [195]: keiner,"
  62. 206 print" [196]: jeder einen [212]eil,"
  63. 207 print" [197]: der, der das [198]lugzeug findet?"
  64. 208 geta$:ifa$=""then 208
  65. 209 ifa$="c" then print" [199]enau! [215]elcher [205]otor?":p=p+1:goto 220
  66. 210 gosub51000
  67. 211 print" [197]in [211]egelflugzeug hat keinen [205]otor!"
  68. 220 print:print" [215]ieviele [212]iere nahm [205]oses von jedem "
  69. 221 print" mit auf die [193]rche (0 - 9)?"
  70. 222 geta$:ifa$=""then 222
  71. 223 ifa$="0"then print" [210]ichtig, das war [206]oah!":p=p+1:goto 230
  72. 224 gosub52000
  73. 225 print" [196]u [196]ussel, das war doch nicht [205]oses!"
  74. 230 print:print" [215]enn ein [206]achtwaechter am [212]age stirbt,"
  75. 231 print" bekommt er dann noch [210]ente ([202]/[206])?"
  76. 232 geta$:ifa$="" then 232
  77. 233 ifa$="n" then print" [215]ozu auch?":p=p+1:goto 240
  78. 234 ifa$="j"thenprint" [215]as soll ein [212]oter mit [210]ente?":goto240
  79. 235 goto232
  80. 240 print:print" [215]ie viele [211]tunden kommst [196]u mit 3 [212]a-"
  81. 241 print" bletten aus, wenn [196]u jede [211]tunde eine"
  82. 242 print" nehmen sollst (0 - 9)?"
  83. 243 geta$:ifa$=""then 243
  84. 244 ifa$="2" then print" [199]ut gezaehlt!":p=p+1:goto 250
  85. 245 gosub53000
  86. 246 print" [206]e, 2 [211]tunden. [196]ie erste nimmst [196]u":print" doch gleich!":goto250
  87. 250 print:print" [212]eile 30 durch 1/2 und zaehle 30 dazu!"
  88. 251 input" [215]as kommt heraus";rt
  89. 252 if rt=90then print" [210]ichtig!":p=p+1:goto 260
  90. 253 print" 90, weil 30 durch 1/2 = 60 sind!"
  91. 260 print:print" [201]n einem dunklen [210]aum liegen"
  92. 261 print" 8 [211]ocken! 4 schwarze und 4 weisse!"
  93. 262 print" [215]ieviele [211]ocken musst [196]u mindestens"
  94. 263 print" nehmen, um ein [208]aar gleiche zu":print" haben (0 - 9)?"
  95. 264 geta$:ifa$=""then 264
  96. 265 ifa$="3" then print" [202]ou, [194]aby, [202]ou!":p=p+1:goto 270
  97. 266 gosub54000
  98. 267 print" 3 reichen. [218]wei gleichfarbige sind dann":print"[145]immer dabei!"
  99. 270 print:print" [203]ann ein [205]ann, der in [206]ew [217]ork lebt,"
  100. 271 print" in [205]anchester begraben werden ([202]/[206])?"
  101. 272 geta$:ifa$=""then 272
  102. 273 ifa$="n" then print" [197]r lebt ja noch, ne?":p=p+1:goto 280
  103. 274 ifa$="j"thenprint" [211]eit wann werden [204]ebende begraben?":goto280
  104. 275 goto272
  105. 280 print:print" [201]n einem [196]orf steht ein 20 [218]entner"
  106. 281 print" schwerer [211]tein, und wenn morgens der"
  107. 282 print" [200]ahn kraeht, bewegt er sich."
  108. 283 print" [201]st das moeglich ([202]/[206])?"
  109. 284 geta$:ifa$="" then 284
  110. 285 ifa$="j" then print" [206]atuerlich bewegt sich der [200]ahn!":p=p+1:goto 290
  111. 286 ifa$="n"thenprint" [206]atuerlich bewegt sich der [200]ahn beim":print" kraehen!":goto290
  112. 287 goto284
  113. 290 print:print" [201]st es moeglich, dass ein [198]ernseher"
  114. 291 print" ohne [211]trom funktioniert ([202]/[206])?"
  115. 292 geta$:ifa$="" then 292
  116. 293 ifa$="n" then print" [206]atuerlich nicht!":p=p+1:goto 300
  117. 294 ifa$="j"thenprint" [211]eit wann geht das denn?":goto300
  118. 295 goto292
  119. 300 print:print" [197]in [193]rchaeologe behauptet, eine [205]uenze"
  120. 301 print" mit den [208]raegdaten 46 vor [195]hristus"
  121. 302 print" gefunden zu haben. [201]st das ueberhaupt":print" moeglich ([202]/[206])?"
  122. 303 geta$:ifa$=""then 303
  123. 304 ifa$="n" then print" [206]ur geraten, was?":p=p+1:goto 310
  124. 305 ifa$="j"thenprint" [215]oher sollte man damals gewusst haben,":goto307
  125. 306 goto303
  126. 307 print" dass in 46 [202]ahren [202]esus geboren wird?"
  127. 310 print:print" '[196]u bist mein [211]ohn, aber ich nicht"
  128. 311 input" [196]ein [214]ater.' [215]er sagt das";ty$
  129. 312 if ty$="[205]utter" then print" [210]ichtig!":p=p+1:goto 320
  130. 313 if ty$="die [205]utter" then print" [202]a!":p=p+1:goto 320
  131. 314 print" [196]ie [205]utter, [196]u [200]innack!"
  132. 320 print:print" [196]u hast ein [200]aus, bei dem alle [215]aende"
  133. 321 print" nach [211]ueden zeigen. [197]in [194]aer kommt"
  134. 322 input" vorbei. [215]elche [198]arbe hat er";yu$
  135. 323 if yu$="weiss"then print" [211]chlau!":p=p+1:goto 330
  136. 324 print" [215]eiss, weil nur am [206]ordpol alle [215]aende"
  137. 325 print" nach [211]ueden zeigen!"
  138. 330 print:print" [197]ine elektrische [197]isenbahn faehrt nach"
  139. 331 print" [206]orden. [201]n welche [210]ichtung steigt der"
  140. 332 input" [210]auch";ui$
  141. 333 if ui$="keine" then print" [199]enau!":p=p+1:goto 340
  142. 334 if ui$="in keine" then print" [199]enau!":p=p+1:goto 340
  143. 335 print" [197]ine elektrische [197]isenbahn "
  144. 336 print" raucht nicht!"
  145. 340 print:print" [200]at die [205]usik dich genervt ([202]/[206])?"
  146. 341 geta$:ifa$=""then 341
  147. 342 ifa$="n" then 350
  148. 343 ifa$="j"then345
  149. 344 goto341
  150. 345 print:print" [200]ast [196]u [201]diot den [212]on abgestellt ([202]/[206])?"
  151. 346 geta$:ifa$=""then 346
  152. 347 ifa$="j" then goto350
  153. 348 ifa$="n"thenprint" [215]ieso nicht, du [211]packen?":p=p-1:goto350
  154. 349 goto346
  155. 350 print:print" [211]o, das war es auch schon!"
  156. 351 print" [197]s folgt dein [212]estergebnis!"
  157. 352 print:print" [196]ruecke [211]pace!"
  158. 353 geta$:ifa$=""then 353
  159. 354 ifa$<>" " then print" [211]pace, [196]u [206]iete!":p=p-1:goto 353
  160. 360 print"[147]":print" [196]u hast genau ";p;" von 21 [208]unkten!"
  161. 361 if p=21 then f$="total intelligent"
  162. 362 if p=20 then f$="sehr intelligent"
  163. 363 if p=19 then f$="intelligent"
  164. 364 if p=18 then f$="sehr schlau"
  165. 365 if p=17 then f$="ziemlich schlau"
  166. 366 if p=16 then f$="schlau"
  167. 367 if p=15 then f$="gerade noch schlau"
  168. 368 if p=14 then f$="ein bischen dumm"
  169. 369 if p=13 then f$="dumm"
  170. 370 if p=12 then f$="ziemlich dumm"
  171. 371 if p=11 then f$="wirklich dumm"
  172. 372 if p=10 then f$="saudoof"
  173. 373 if p=8  then f$="schrecklich doof"
  174. 374 if p=7  then f$="total idiotisch"
  175. 375 if p=6  then f$="vollidiotisch"
  176. 376 if p=5  then f$="hirnlos"
  177. 377 if p=4  then f$="total hirnlos"
  178. 378 if p=3  then f$="hilflos scheisse"
  179. 379 if p=<3 then f$="anstaltsreif"
  180. 380 print" [196]ieses [197]rgebnis sagt aus, dass [196]u"
  181. 381 print" ";f$;" bist!"
  182. 382 print:print" [193]uf [215]iedersehen und trotzdem einen"
  183. 383 print" schoenen [212]ag!         [205]r. [202]oker!"
  184. 384 goto384
  185. 50000 ifa$="0"thenreturn
  186. 50001 ifa$="2"thenreturn
  187. 50002 ifa$="3"thenreturn
  188. 50003 ifa$="4"thenreturn
  189. 50004 ifa$="5"thenreturn
  190. 50005 ifa$="6"thenreturn
  191. 50006 ifa$="7"thenreturn
  192. 50007 ifa$="8"thenreturn
  193. 50008 ifa$="9"thenreturn
  194. 50009 goto141
  195. 51000 ifa$="a"thenreturn
  196. 51001 ifa$="b"thenreturn
  197. 51002 ifa$="d"thenreturn
  198. 51003 ifa$="e"thenreturn
  199. 51004 goto208
  200. 52000 ifa$="1"thenreturn
  201. 52001 ifa$="2"thenreturn
  202. 52002 ifa$="3"thenreturn
  203. 52003 ifa$="4"thenreturn
  204. 52004 ifa$="5"thenreturn
  205. 52005 ifa$="6"thenreturn
  206. 52006 ifa$="7"thenreturn
  207. 52007 ifa$="8"thenreturn
  208. 52008 ifa$="9"thenreturn
  209. 52009 goto222
  210. 53000 ifa$="0"thenreturn
  211. 53001 ifa$="1"thenreturn
  212. 53002 ifa$="3"thenreturn
  213. 53003 ifa$="4"thenreturn
  214. 53004 ifa$="5"thenreturn
  215. 53005 ifa$="6"thenreturn
  216. 53006 ifa$="7"thenreturn
  217. 53007 ifa$="8"thenreturn
  218. 53008 ifa$="9"thenreturn
  219. 53009 goto243
  220. 54000 ifa$="0"thenreturn
  221. 54001 ifa$="1"thenreturn
  222. 54002 ifa$="2"thenreturn
  223. 54003 ifa$="4"thenreturn
  224. 54004 ifa$="5"thenreturn
  225. 54005 ifa$="6"thenreturn
  226. 54006 ifa$="7"thenreturn
  227. 54007 ifa$="8"thenreturn
  228. 54008 ifa$="9"thenreturn
  229. 54009 goto264
  230. 60000 ifa$="0"thenreturn
  231. 60001 ifa$="2"thenreturn
  232. 60002 ifa$="3"thenreturn
  233. 60003 ifa$="4"thenreturn
  234. 60004 ifa$="5"thenreturn
  235. 60005 ifa$="6"thenreturn
  236. 60006 ifa$="7"thenreturn
  237. 60007 ifa$="8"thenreturn
  238. 60008 ifa$="9"thenreturn
  239. 60009 goto124
  240.